home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwtim / time_3.txt < prev   
Text File  |  1994-04-22  |  828b  |  34 lines
  1. // Time Format for CRYSTAL Reports (24:00:00 format)
  2. //
  3. // Convert MS ACCESS Time to Whole Number
  4. NumberVar TotWholeNbr:={Time.Time}*100000000;
  5.  
  6. // Calculate Hours
  7. NumberVar Hours:=Truncate(TotWholeNbr/4166666.64);
  8.  
  9. // Calculate Minutes
  10. NumberVar Mins:=Truncate((TotWholeNbr-(Hours*4166666.64))/69444.444);
  11.  
  12. // Calculate Seconds
  13. NumberVar Secs:=Truncate((TotWholeNbr-((Hours*4166666.64)+(Mins*69444.444)))/1157.4074);
  14.  
  15. // Set Hour String
  16. If Hours<10 Then
  17.   StringVar HH:="0"+ToText(Hours)
  18. Else
  19.   StringVar HH:=ToText(Hours);
  20.  
  21. // Set Minute String
  22. If Mins<10 Then
  23.   StringVar MM:="0"+ToText(Mins)
  24. Else
  25.   StringVar MM:=ToText(Mins);
  26.  
  27. // Set Seconds String
  28. If Secs<10 Then
  29.   StringVar SS:="0"+ToText(Secs)
  30. Else
  31.   StringVar SS:=ToText(Secs);
  32.  
  33. // Output Time
  34. HH[1 to 2]+":"+MM[1 to 2]+":"+SS[1 to 2];